home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / impath.ps < prev    next >
Text File  |  1996-07-03  |  6KB  |  181 lines
  1. %    Copyright (C) 1992, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % impath.ps
  19. % Reverse-rasterize a bitmap to produce a Type 1 outline.
  20. % (This was formerly a Ghostscript operator implemented in C.)
  21.  
  22. %    <image> <width> <height> <wx> <wy> <ox> <oy> <string>
  23. %      type1imagepath <substring>
  24. %        Converts an image (bitmap) description of a character into
  25. %          a scalable description in Adobe Type 1 format.  The
  26. %          current transformation matrix should be the same as the
  27. %          FontMatrix of the font in which this character will be
  28. %          used: this establishes the scaling relationship between
  29. %          image pixels (the image is assumed to be 1 unit high in
  30. %          user space) and the character coordinate system used in
  31. %          the scalable description.  wx and wy are the character
  32. %          width, and ox and oy are the character origin relative
  33. %          to the lower left corner of the bitmap, in *pixels*.
  34. %        The image is assumed to be stored in left-to-right,
  35. %          top-to-bottom order.  Note that this is not consistent
  36. %          with the `image' operator's interpretation of the CTM.
  37. %        All coordinates in the scalable description are rounded to
  38. %          integers, so the coefficients in the FontMatrix should
  39. %          be on the order of 1/N for some value of N that is
  40. %          either a multiple of the height/width or is large
  41. %          compared to the width and height.  (There is a
  42. %          convention, which some PostScript programs rely on, that
  43. %          N=1000.)
  44. %        Note that the encoded description has *not* been subjected
  45. %          to CharString encryption, which is necessary before the
  46. %          description can be given to type1addpath: to do this,
  47. %          follow the type1imagepath with
  48. %            4330 exch dup .type1encrypt exch pop
  49. %        If the description is too complex to fit into the supplied
  50. %          string, a limitcheck error results.  A good rule of
  51. %          thumb is that the size of the string should be about 6
  52. %          times the number of 1-bits in the image that are not
  53. %          completely surrounded by other 1-bits.
  54.  
  55. % Import the Type 1 opcodes.
  56. (type1ops.ps) runlibfile
  57.  
  58. 100 dict
  59. dup /type1imagepath_dict exch def
  60. begin
  61.  
  62. /rc { round cvi } bind def
  63. /moving [/rmoveto /hmoveto /vmoveto] def
  64. /drawing [/rlineto /hlineto /vlineto] def
  65.  
  66. % Convert the current path to a Type 1 token array.
  67. /putxy            % x y ops -> cs_elements
  68.  { 3 -1 roll dup x sub rc exch /x exch def
  69.    3 -1 roll dup y sub rc exch /y exch def
  70.    % stack: ops dx dy
  71.    dup 0 eq
  72.     { % dy = 0, use hmoveto/lineto
  73.       pop exch 1 get
  74.     }
  75.     { 1 index 0 eq
  76.        { % dx = 0, use vmoveto/lineto
  77.          exch pop exch 2 get
  78.        }
  79.        { % use rmoveto/rlineto
  80.          3 -1 roll 0 get
  81.        }
  82.       ifelse
  83.     }
  84.    ifelse
  85.  } bind def
  86. /pathtotype1        % -> charstack
  87.  { 3 dict begin /x 0 def /y 0 def
  88.    mark
  89.    { moving putxy
  90.    }
  91.    { drawing putxy
  92.    }
  93.    { % Convert curve to relative form
  94.      x y 3
  95.       { exch neg 7 index add rc
  96.     exch neg 6 index add rc
  97.     8 -2 roll
  98.       }
  99.      repeat /y exch def /x exch def
  100.      1 index 0 eq 5 index 0 eq and    % dy1=dx3=0, hv
  101.       { 5 -1 roll pop exch pop /hvcurveto
  102.       }
  103.       { dup 0 eq 6 index 0 eq and    % dx1=dy3=0, vh
  104.          { 6 -1 roll pop pop /vhcurveto
  105.      }
  106.      { /rrcurveto            % none of the above
  107.      }
  108.     ifelse
  109.       }
  110.      ifelse
  111.    }
  112.    { /closepath
  113.    }
  114.    pathforall end
  115.  } bind def
  116.  
  117. end    % type1imagepath_dict
  118.  
  119. % The main program
  120. /type1imagepath        % image width height wx wy ox oy string ->
  121.             % substring
  122.  { type1imagepath_dict begin
  123.    /tsave save def
  124.    /ostring exch def
  125.    /oy exch def   /ox exch def
  126.    /wy exch def   /wx exch def
  127.    /height exch def   /width exch def
  128.    /data exch def
  129.  
  130.    /ofilter ostring /NullEncode filter def
  131.    /raster width 7 add 8 idiv def
  132.  
  133. % Construct the coordinate transformation.
  134.    height dup scale
  135.      matrix currentmatrix matrix invertmatrix setmatrix
  136.  
  137. % Determine the left side bearing.
  138.    /lsbx width
  139.    0 1 width 1 sub
  140.     { dup dup 8 idiv 0 exch
  141.       raster raster height mul 1 sub
  142.        { data exch get or }
  143.       for exch 8 mod bitshift 128 and 0 ne
  144.        { exch pop exit }
  145.       if pop
  146.     }
  147.    for def
  148.  
  149. % Compute and encode the origin, width, and side bearing.
  150.    mark
  151.    ox oy dtransform
  152.      rc /opty exch def   rc /optx exch def
  153.    wx wy dtransform
  154.      rc /iwy exch def    rc /iwx exch def
  155.    lsbx ox sub 0 dtransform
  156.      rc /ilsby exch def   rc /ilsbx exch def
  157.    ilsbx
  158.    iwy 0 ne ilsby 0 ne or
  159.     { ilsby iwx iwy /sbw }
  160.     { iwx /hsbw }
  161.    ifelse
  162.    ofilter charstack_write
  163.  
  164. % Flip over the Y axis, because the image is stored top-to-bottom.
  165.    [1 0 0 -1 0 height] concat
  166. % Account for the character origin.
  167.    lsbx oy translate
  168. % Trace the outline.
  169.    newpath
  170.    width height data .imagepath
  171.    gsave matrix setmatrix pathtotype1 grestore
  172.    ofilter charstack_write
  173. % Terminate the output
  174.    mark /endchar ofilter charstack_write
  175.  
  176.    ofilter fileposition ofilter closefile    % flush buffers
  177.    ostring 0 3 -1 roll getinterval
  178.    tsave restore
  179.    end
  180.  } bind def
  181.